home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / tex-k / tex-k-archive.past / 1994.12.gz / 1994.12 / 000038_Dinh-Tuan.Pham@imag.fr_Wed Dec 7 20:09:51 1994.msg < prev    next >
Internet Message Format  |  1994-12-30  |  9KB
  1. Received: from imag.imag.fr by cs.umb.edu with SMTP id AA13129
  2.   (5.65c/IDA-1.4.4 for <tex-k@cs.umb.edu>); Wed, 7 Dec 1994 13:08:16 -0500
  3. Received: from puma.imag.fr by imag.imag.fr with SMTP id AA05109
  4.   (5.65c8/IDA-1.4.4 for <tex-k@cs.umb.edu>); Wed, 7 Dec 1994 19:08:14 +0100
  5. Received: by puma.imag.fr (5.0/SMI-SVR4)
  6.     id AA16013; Wed, 7 Dec 1994 19:09:51 --100
  7. Date: Wed, 7 Dec 1994 19:09:51 --100
  8. Message-Id: <9412071809.AA16013@puma.imag.fr>
  9. To: tex-k@cs.umb.edu
  10. Subject: xdvik and Selfile
  11. From: Dinh-Tuan.Pham@imag.fr
  12. Content-Length: 7694
  13.  
  14.     Hi,
  15.     I have made some modifications to the SelFile widget in xdvik,
  16. which cluld be of interest for inclusion in a future release. The
  17. purpose is implement a file filter so that the widget will display
  18. only *.dvi files (for ex.). The filter mask (*.dvi by default) can be
  19. changed by the user. Also, there is a switch to hide/show the "dot"
  20. files (file with name begining with .).
  21.     Here is the patch
  22.  
  23. --------------------- cut here ---------------------------
  24. *** xdvik/sfSelFile.c.orig    Tue Dec  6 16:03:04 1994
  25. --- xdvik/sfSelFile.c    Wed Dec  7 08:11:58 1994
  26. ***************
  27. *** 89,94 ****
  28. --- 89,100 ----
  29.       selFilePrompt,
  30.       selFileVScrolls[3];
  31.   
  32. + /* addition for file filter */
  33. + Widget    selFileLabel, selFileMask, selFileHide;
  34. + #define MASKWIDTH 10
  35. + char     fileMask[MASKWIDTH+2] = "*.dvi";
  36. + /* end addition */
  37. + 
  38.   Display *SFdisplay;
  39.   
  40.   Pixel SFfore, SFback;
  41. ***************
  42. *** 221,226 ****
  43. --- 227,332 ----
  44.       {"SelFileDismiss",    SFdismissAction},
  45.   };
  46.   
  47. + /* addition for file filter */
  48. + 
  49. + int    maskFile(mask, filename)
  50. + char    *mask, *filename;
  51. + /* return 1 if file is masked (mask does not match filename), 0 otherwise */
  52. + {
  53. + int     c, c1;
  54. + 
  55. +     while  (c = *mask++) {
  56. +       if (c == '*') {
  57. +         while (c1 = *mask++) {
  58. +           if (c1 != '*') {
  59. +         if (!(*filename)) return 1;
  60. +         if (c1 != '?') {
  61. +           while (filename = strchr(filename, c1)) {
  62. +             if (!maskFile(mask, ++filename)) return 0;
  63. +           }
  64. +           return 1;
  65. +         }
  66. +         else filename++;
  67. +           }
  68. +         }
  69. +         return 0;
  70. +       }
  71. +       if (c == '?') { if (!*filename) return 1; }
  72. +       else if (c != *filename) return 1;
  73. +       filename++;
  74. +     }
  75. +     return (*filename)? 1 : 0;
  76. + }
  77. + 
  78. + #include <sys/stat.h>
  79. + #if !defined(S_ISDIR) && defined(S_IFDIR)
  80. + #define    S_ISDIR(m)    (((m) & S_IFMT) == S_IFDIR)
  81. + #endif
  82. + 
  83. + int    hideFlag = 1;
  84. + int    showEntry(entryReal, entryShown, statBuf)
  85. + char    *entryReal, **entryShown;
  86. + struct    stat    *statBuf;
  87. + {
  88. +     if (!(S_ISDIR(statBuf->st_mode))) {
  89. +       if (hideFlag)
  90. +         if (entryReal[0] == '.') return 0;
  91. +       if (maskFile(fileMask, entryReal)) return 0;
  92. +     }
  93. +     entryReal[strlen(entryReal)] = SFstatChar(statBuf);
  94. +         return 1;
  95. + }
  96. + 
  97. + /* ARGSUSED */
  98. + void    maskChanged(w, client_data, event)
  99. + Widget        w;
  100. + XtPointer    client_data;
  101. + XKeyPressedEvent    *event;
  102. + {
  103. + char    buf[2];
  104. + register SFDir        *dir;
  105. + register SFEntry    *entry;
  106. + extern void SFupdatePath ();
  107. + 
  108. +     if ((XLookupString(event, buf, 2, NULL, NULL) == 1) &&
  109. +         ((*buf) == '\r')) {
  110. +       for (dir = &(SFdirs[SFdirEnd - 1]); dir >= SFdirs; dir--)
  111. +         *(dir->dir) = 0; /* force a re-read */
  112. +       SFupdatePath();
  113. +     }
  114. + }
  115. + 
  116. + /* ARGSUSED */
  117. + void    hideFiles(w, client_data, event)
  118. + Widget    w;
  119. + XtPointer    client_data;
  120. + XEvent    *event;
  121. + {
  122. + register SFDir        *dir;
  123. + register SFEntry    *entry;
  124. + extern void SFupdatePath ();
  125. + 
  126. +     hideFlag = 1 - hideFlag;
  127. +     if (hideFlag) {
  128. +       XtVaSetValues(w, XtNlabel, "hidden", NULL);
  129. +       for (dir = &(SFdirs[SFdirEnd - 1]); dir >= SFdirs; dir--) {
  130. +         if (!(dir->nEntries)) continue;
  131. +         dir->vOrigin = 0;
  132. +         for (entry = &(dir->entries[dir->nEntries - 1]);
  133. +          entry >= dir->entries; entry--)
  134. +           entry->statDone = 0;
  135. +         SFdrawLists(SF_DO_SCROLL);
  136. +       }
  137. +     } else {
  138. +       XtVaSetValues(w, XtNlabel, "shown", NULL);
  139. +       for (dir = &(SFdirs[SFdirEnd - 1]); dir >= SFdirs; dir--)
  140. +         *(dir->dir) = 0;    /* force a re-read */
  141. +       SFupdatePath();
  142. +     }
  143. + }
  144. + 
  145. + /* end addition */
  146. + 
  147.   static void
  148.   SFcreateWidgets(toplevel, prompt, ok, cancel)
  149.       Widget    toplevel;
  150. ***************
  151. *** 345,351 ****
  152.   
  153.       XtOverrideTranslations(selFileField,
  154.           XtParseTranslationTable(oneLineTextEditTranslations));
  155. !     XtSetKeyboardFocus(selFileForm, selFileField);
  156.   
  157.       i = 0;
  158.       XtSetArg(arglist[i], XtNorientation, XtorientHorizontal);    i++;
  159. --- 451,458 ----
  160.   
  161.       XtOverrideTranslations(selFileField,
  162.           XtParseTranslationTable(oneLineTextEditTranslations));
  163. ! /*    XtSetKeyboardFocus(selFileForm, selFileField);
  164. !     need focus for selFileMask wigget to set the filter */
  165.   
  166.       i = 0;
  167.       XtSetArg(arglist[i], XtNorientation, XtorientHorizontal);    i++;
  168. ***************
  169. *** 473,478 ****
  170. --- 580,650 ----
  171.       selFileCancel = XtCreateManagedWidget("selFileCancel",
  172.           commandWidgetClass, selFileForm, arglist, i);
  173.   
  174. + /* addition for file filter */
  175. +     selFileLabel = XtVaCreateManagedWidget("selFileLabel",
  176. +         labelWidgetClass, selFileForm,
  177. +         XtNfromVert, selFileLists[0],
  178. +         XtNvertDistance, 30,
  179. +         XtNfromHoriz, selFileCancel,
  180. +         XtNhorizDistance, 60,
  181. +         XtNlabel,  "File Mask:",
  182. +         XtNborderWidth, 0,
  183. +         XtNtop, XtChainTop,
  184. +         XtNbottom, XtChainTop,
  185. +         NULL);
  186. +     
  187. +     selFileMask = XtVaCreateManagedWidget("selFileMask",
  188. +         asciiTextWidgetClass, selFileForm,
  189. +         XtNwidth, MASKWIDTH*SFcharWidth,
  190. +         XtNfromVert, selFileLists[0],
  191. +         XtNvertDistance, 30,
  192. +         XtNfromHoriz, selFileLabel,
  193. +         XtNhorizDistance, 0,
  194. +         XtNtop, XtChainTop,
  195. +         XtNbottom, XtChainTop,
  196. +         XtNstring, fileMask,
  197. +         XtNlength, sizeof(fileMask),
  198. +         XtNeditType, XawtextEdit,
  199. +         XtNwrap, XawtextWrapNever,
  200. +         XtNuseStringInPlace, True,
  201. +         NULL);
  202. + 
  203. +     for (i = 0; i < 3; i++)
  204. +       XtSetKeyboardFocus(selFileLists[i], selFileField);
  205. + 
  206. +     XtOverrideTranslations(selFileMask,
  207. +         XtParseTranslationTable(oneLineTextEditTranslations));
  208. + 
  209. +     XtAddEventHandler(selFileMask, KeyPressMask, False,
  210. +         maskChanged, (XtPointer) NULL);
  211. + 
  212. +     selFileLabel = XtVaCreateManagedWidget("selFileLabel",
  213. +         labelWidgetClass, selFileForm,
  214. +         XtNfromVert, selFileLists[0],
  215. +         XtNvertDistance, 30,
  216. +         XtNfromHoriz, selFileMask,
  217. +         XtNhorizDistance, 40,
  218. +         XtNlabel,  "dot files",
  219. +         XtNborderWidth, 0,
  220. +         XtNtop, XtChainTop,
  221. +         XtNbottom, XtChainTop,
  222. +         NULL);
  223. + 
  224. +     selFileHide = XtVaCreateManagedWidget("selFileHide",
  225. +         commandWidgetClass, selFileForm,
  226. +         XtNfromVert, selFileLists[0],
  227. +         XtNvertDistance, 30,
  228. +         XtNfromHoriz, selFileLabel,
  229. +         XtNhorizDistance, 2,
  230. +         XtNlabel, "hidden",
  231. +         XtNborderWidth, 0,
  232. +         XtNtop, XtChainTop,
  233. +         XtNbottom, XtChainTop,
  234. +         XtNcursorName, "dot",
  235. +                NULL);
  236. +     XtAddCallback(selFileHide, XtNcallback, hideFiles, NULL);
  237. + /* end addition */
  238. + 
  239.       XtSetMappedWhenManaged(selFile, False);
  240.       XtRealizeWidget(selFile);
  241.   
  242. ***************
  243. *** 577,588 ****
  244.                  strlen(prompt) + 2);
  245.           strcpy(buf, failed);
  246.           strcat(buf, sys_errlist[errno]);
  247. !         strcat(buf, "\n");
  248.           strcat(buf, prompt);
  249.       } else {
  250.           buf = XtMalloc(strlen(failed) + strlen(prompt) + 2);
  251.           strcpy(buf, failed);
  252. !         strcat(buf, "\n");
  253.           strcat(buf, prompt);
  254.       }
  255.       XtSetArg(args[0], XtNlabel, buf);
  256. --- 749,762 ----
  257.                  strlen(prompt) + 2);
  258.           strcpy(buf, failed);
  259.           strcat(buf, sys_errlist[errno]);
  260. ! /*         strcat(buf, "\n"); */
  261. !         strcat(buf, " ");
  262.           strcat(buf, prompt);
  263.       } else {
  264.           buf = XtMalloc(strlen(failed) + strlen(prompt) + 2);
  265.           strcpy(buf, failed);
  266. ! /*        strcat(buf, "\n"); */
  267. !         strcat(buf, " ");
  268.           strcat(buf, prompt);
  269.       }
  270.       XtSetArg(args[0], XtNlabel, buf);
  271. ***************
  272. *** 726,732 ****
  273.           (void) strcpy(SFcurrentPath, SFstartDir);
  274.       }
  275.   
  276. !     SFfunc = show_entry;
  277.   
  278.       SFtextChanged();
  279.   
  280. --- 900,908 ----
  281.           (void) strcpy(SFcurrentPath, SFstartDir);
  282.       }
  283.   
  284. ! /*    SFfunc = show_entry;
  285. !     disabled in order to implement file filter */
  286. !     SFfunc = showEntry;
  287.   
  288.       SFtextChanged();
  289.   
  290. -------------- end of patch ----------
  291. -----------------------------------------------------------------------
  292. PHAM Dinh Tuan                         | e-mail: Dinh-Tuan.Pham@imag.fr
  293. Laboratoire de Modelisation et Calcul  | Tel: +33 76 51 44 23
  294. BP 53, 38041 Grenoble cedex 9 (France) | Fax: +33 76 63 12 63
  295. -----------------------------------------------------------------------